home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_34 / stos_acc / outdata2.acb (.txt) < prev   
Atari STOS Basic  |  1987-04-21  |  10KB  |  157 lines
  1. 100 REM  *******************************************************
  2. 1000 RETURN
  3. 1010 UNKNOWN OP: 0x3A
  4. 1020 UNKNOWN OP: 0x3A
  5. 1030 REM **********      OUTPUT BANK       **********
  6. 1040 CLS
  7. 1050 CLEAR KEY
  8. 1060 REM ~~~> Listing
  9. 1070 FOR
  10. 1080 VARNAME
  11. 1090 VARNAME
  12. 110 REM  *                                                     *
  13. 1100 VARNAME
  14. 1110 VARNAME
  15. 1120 VARNAME
  16. 1130 VARNAME
  17. 1140 VARNAME
  18. 1150 VARNAME
  19. 1160 REPEAT
  20. 1170 VARNAME
  21. 1180 VARNAME
  22. 1190 MID$
  23. 120 REM  *  PROGRAM NAME     : OUTDATA2.ACB                    *
  24. 1200 VARNAME
  25. 1210 VARNAME
  26. 1220 VARNAME
  27. 1230 VARNAME
  28. 1240 MID$
  29. 1250 NEXT
  30. 1260 UNTIL
  31. 1270 VARNAME
  32. 1280 VARNAME
  33. 1290 WAIT KEY
  34. 130 REM  *  PROGRAM FUNCTION : DATA GENERATOR FOR STOS BANKS   *
  35. 1300 GOSUB
  36. 1310 RETURN
  37. 1320 UNKNOWN OP: 0x3A
  38. 1330 UNKNOWN OP: 0x3A
  39. 1340 REM **********       PRINT BANK       **********
  40. 1350 PRINT
  41. 1360 IF
  42. 1370 IF
  43. 1380 RETURN
  44. 1390 UNKNOWN OP: 0x3A
  45. 140 REM  *  ORIGINAL AUTHOR  : FRANOIS LIONET                  *
  46. 1400 UNKNOWN OP: 0x3A
  47. 1410 REM **********   ERROR DURING OUTPUT  **********
  48. 1420 CLW
  49. 1430 CLS
  50. 1440 WINDOPEN
  51. 1450 WINDOPEN
  52. 1460 BOOM
  53. 1470 WINDOW
  54. 1480 CURS
  55. 1490 CLW
  56. 150 REM  *  UPDATE AUTHOR    : PETER HICKMAN                   *
  57. 1500 PRINT
  58. 1510 WINDOW
  59. 1520 CURS
  60. 1530 CLW
  61. 1540 PRINT
  62. 1550 WAIT KEY
  63. 1560 WINDEL
  64. 1570 WINDEL
  65. 1580 GOSUB
  66. 1590 UNKNOWN OP: 0x3A
  67. 160 REM  *  REASON FOR UPDATE: TO ALLOW PEOPLE TO DUMP STOS    *
  68. 1600 UNKNOWN OP: 0x3A
  69. 1610 REM **********       END PROGRAM      **********
  70. 1620 HIDE
  71. 1630 DEFAULT
  72. 1640 CLOSE
  73. 1650 END
  74. 170 REM  *                     BANKS TO DISK, READY FOR        *
  75. 180 REM  *                     MAGAZINES SUCH AS PAGE 6 TO     *
  76. 190 REM  *                     PASTE THEM STRAIGHT INTO THEIR  *
  77. 200 REM  *                     DTP PROGRAM ALONG WITH STOS     *
  78. 210 REM  *                     PROGRAMS.                       *
  79. 220 REM  *                                                     *
  80. 230 REM  *******************************************************
  81. 240 KEY
  82. 250 MODE
  83. 260 SHOW
  84. 270 VARNAME
  85. 280 UNKNOWN OP: 0x3A
  86. 290 UNKNOWN OP: 0x3A
  87. 300 GOSUB
  88. 310 GOSUB
  89. 320 GOSUB
  90. 330 GOSUB
  91. 340 GOSUB
  92. 350 END
  93. 360 UNKNOWN OP: 0x3A
  94. 370 UNKNOWN OP: 0x3A
  95. 380 REM  **********       CLEAN BANKS      **********
  96. 390 FOR
  97. 400 RETURN
  98. 410 UNKNOWN OP: 0x3A
  99. 420 UNKNOWN OP: 0x3A
  100. 430 REM  **********        LOAD BANK       **********
  101. 440 REPEAT
  102. 450 REPEAT
  103. 460 VARNAME
  104. 470 VARNAME
  105. 480 IF
  106. 490 IF
  107. 500 UNTIL
  108. 510 ON ERROR
  109. 520 LOAD
  110. 530 UNTIL
  111. 540 ON ERROR
  112. 550 RETURN
  113. 560 UNKNOWN OP: 0x3A
  114. 570 UNKNOWN OP: 0x3A
  115. 580 REM  **********   ERROR LOADING BANK   **********
  116. 590 CLW
  117. 600 WINDOPEN
  118. 610 WINDOPEN
  119. 620 BOOM
  120. 630 WINDOW
  121. 640 CURS
  122. 650 CLW
  123. 660 PRINT
  124. 670 WINDOW
  125. 680 CURS
  126. 690 CLW
  127. 700 PRINT
  128. 710 VARNAME
  129. 720 WAIT KEY
  130. 730 WINDEL
  131. 740 WINDEL
  132. 750 RESUME NEXT
  133. 760 UNKNOWN OP: 0x3A
  134. 770 UNKNOWN OP: 0x3A
  135. 780 REM  **********  CHOOSE OUTPUT MEDIA   **********
  136. 790 VARNAME
  137. 800 CLW
  138. 810 WINDOPEN
  139. 820 WINDOPEN
  140. 830 WINDOW
  141. 840 CURS
  142. 850 CLW
  143. 860 PRINT
  144. 870 WINDOW
  145. 880 CURS
  146. 890 CLW
  147. 900 PRINT
  148. 910 PRINT
  149. 920 PRINT
  150. 930 REPEAT
  151. 940 VARNAME
  152. 950 UNTIL
  153. 960 ON ERROR
  154. 970 IF
  155. 980 IF
  156. 990 IF
  157.